home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
orbit_fix.mln
< prev
next >
Wrap
Text File
|
1990-06-01
|
959b
|
28 lines
;Beginning compilation on /u/kranz/xlib/orbit_fix.t
;** Warning: unreferenced variable ARGS
; Location: in definition of GENERATE-FOREIGN-CALL
GENERATE-FOREIGN-CALL
POINTER->REP
(VARIABLES
FREE (MIPS/FSTORE CALL-ARGS REP->POINTER SLINK/MAKE-EXTEND HEADER/DOUBLE-FLOAT
LIST P SCRATCH LOOKUP-VALUE RISC/SRA A1 RISC/SRL A2 REVERSE PARASSIGN-EXTRA
VECTOR GENERATE-MOVE CRIT-REG EXTRA SLINK/SAVED-CRIT EMIT ZERO SUBLIST
%%CAR AN+1 MACHINE-NUM MAP MAX RISC/ADD MIPS/NOOP RISC/LOAD AN SP
RISC/SLL SLINK/SAVED-SSP EXTRA-ARGS LINK-REG RISC/STORE GENERATE-SLINK-CALL
ANY? SSP ASEMIT LOCK SLINK/SAVED-SP EVERY? CONS* A5 REG-OFFSET MIPS/FLOAD
BUG NO-MORE-COND-CLAUSES MIPS/JALR LEAF-VALUE LENGTH NTHCDR RISC/SUB
NIL-REG)
EARLY-BOUND (CADR)
DEFINED (GENERATE-FOREIGN-CALL POINTER->REP)
LSET ()
SET ()
ERROR ()
INTEGRATED (EQ? FX> NEQ? FX<= FX< ELSE CDR CAR NULL? OR-AUX FX+
FX-)
LOCAL ()
UNREFERENCED (GENERATE-FOREIGN-CALL))
; assembled 9000 bytes